Option Strict Off
Option Explicit On

Imports BCS.MotorActivacion.Base

Public NotInheritable Class ColumnasFormatoArch
    Inherits Lista

    Public ReadOnly Property Item() As ColumnaFormatoArch
        Get
            Return m_Item
        End Get
    End Property

    Public Sub AddItem(ByVal NewVal As ColumnaFormatoArch)
        AddItem(NewVal, True)
    End Sub

    Public Sub AddItem(ByVal NewVal As ColumnaFormatoArch, ByVal Refresh As Boolean)
        If Not m_List.Contains(NewVal.Key) Then
            m_List.Add(NewVal)

            If Refresh = True Then
                toRefresh()
            End If
        End If
    End Sub

    Public Function GetItem(ByVal Key As String) As ColumnaFormatoArch
        If m_List.Contains(Key) Then
            GetItem = m_List.Item(Key)
        Else
            GetItem = New ColumnaFormatoArch
        End If
    End Function
End Class